home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / CompuServe.DATAPAC.v2.02 < prev    next >
Text File  |  1992-03-20  |  3KB  |  181 lines

  1. * CompuServe Script, for QuickMail™
  2. * © 1988-90 CE Software, Inc.
  3. *
  4. * Derived from: Title: CompuServe.DATAPAC.v2.02
  5. * Version: 2.02
  6. * Modification Date: 5/2/90
  7. * Modification History:
  8. * • 2.01 - 4/11/89: Formating and Name Changes.  Tested OK.
  9. * • 2.02 - Datapac mods by R. Sutcliffe 1990 05 02
  10. *
  11. * NOTES:
  12. * This is a simple script for logging onto CompuServe.  It assumes that
  13. * you are calling directly into the CompuServe network via Datapac.
  14. *
  15. *
  16. * THIS SCRIPT ONLY WORKS IF YOU ARE CALLING THROUGH Datapac.
  17. *
  18. *
  19. * This is called to log us into CompuServe
  20. :IN
  21. OOPS 120,FAILURE
  22. TYPE ..^M
  23. PAUSE 1
  24. TYPE P 29400138^M
  25. WAIT Host Name:
  26. TYPE cis^M
  27. WAIT User ID:
  28. TYPE «LOGID»;OLDF/GO:EMAIL^M
  29. WAIT Password:
  30. TYPE «PASSWORD»^M
  31. ALERT 1,IN2,Enter choice !
  32. ALERT 2,IN2,or HELp!
  33. ALERT 3,IN4,<CR>!
  34. ALERT 4,IN5,(Y or N)
  35. WAIT EasyPlex!
  36. :IN2
  37. ALERT 1,,
  38. ALERT 2,,
  39. TYPE Set Mode Command^M
  40. WAIT !
  41. TYPE Set Editor NoLine^M
  42. WAIT !
  43. TYPE Set Page Off^M
  44. WAIT !
  45. SUCCESS
  46. :IN4
  47. TYPE ^M
  48. WAIT EasyPlex!
  49. GOTO IN2
  50. :IN5
  51. TYPE Y^M
  52. WAIT EasyPlex!
  53. GOTO IN2
  54. *
  55. * This logs us off CompuServe
  56. *
  57. :BYE
  58. TYPE Bye^M
  59. ALERT 4,SUCCESS,DISCONNECTED
  60. ALERT 1,SUCCESS,NO CARRIER
  61. ALERT 2,B2,(Y or N)!
  62. ALERT 3,BYE,Host Name:
  63. :B1
  64. PAUSE 10
  65. SUCCESS
  66. :B2
  67. TYPE Y^M
  68. GOTO B1
  69. *
  70. * These are called to send one binary file
  71. *
  72. :XSEND
  73. OOPS 60,FAILURE
  74. TYPE Upload/PROTO:XMODEM/TYPE:Binary^M
  75. WAIT completed.
  76. XMODEM Upload,FAILURE
  77. GOTO S1
  78. :XAGAIN
  79. OOPS 60,FAILURE
  80. TYPE SEND^M
  81. GOTO S1
  82. *
  83. * This is called to send one piece of mail
  84. *
  85. :SEND
  86. OOPS 60,FAILURE
  87. TYPE Compose^M
  88. WAIT Enter message.
  89. TYPE Attn: «NAME»^M
  90. DUMP ^J
  91. TYPE /EX^M
  92. :S1
  93. WAIT (Name or User ID):
  94. TYPE «ADDRESS»^M
  95. ALERT 2,S5,%
  96. ALERT 3,S6,SEND!
  97. WAIT Subject:
  98. ALERT 2,,
  99. ALERT 3,,
  100. TYPE «TOPIC»^M
  101. ALERT 1,S3,Your name:
  102. :S2
  103. WAIT (Y or N)!
  104. TYPE Y^M
  105. ALERT 1,S4,Press <CR>!
  106. WAIT EasyPlex!
  107. SUCCESS
  108. :S3
  109. TYPE «FROM»^M
  110. GOTO S2
  111. :S4
  112. TYPE ^M
  113. WAIT EasyPlex!
  114. SUCCESS
  115. :S5
  116. ALERT 2,,
  117. ALERT 3,,
  118. ERRORINADDRESS
  119. WAIT to omit:
  120. TYPE ^M
  121. WAIT SEND!
  122. :S6
  123. ALERT 2,,
  124. ALERT 3,,
  125. TYPE ^M
  126. WAIT EasyPlex!
  127. SUCCESS
  128. *
  129. * This is called to resend the last message to someone else.  If there is
  130. * no label called "Again" in a script, it just calls Send for every file
  131. *
  132. :AGAIN
  133. OOPS 60,FAILURE
  134. TYPE EDIT^M
  135. WAIT [ Ready ]
  136. TYPE /T^M
  137. WAIT [ Top of file ]
  138. TYPE /N^M
  139. WAIT Attn:
  140. TYPE /R/Attn: «NAME»^M
  141. WAIT Attn:
  142. TYPE /EX^M
  143. WAIT SEND!
  144. TYPE SEND^M
  145. GOTO S1
  146. *
  147. * This is called to receive mail.  It is called continually with increasing
  148. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  149. * listing, if you wish
  150. *
  151. :RECEIVE
  152. OOPS 60,FAILURE
  153. TYPE Read all^M
  154. :R1
  155. ALERT 1,R10,EasyPlex!
  156. ALERT 2,R2,% Message is Binary
  157. BUFFER Action!
  158. RECEIVE Subj:,Attn:,From:,[,]
  159. TYPE Delete^M
  160. WAIT Delete
  161. GOTO R1
  162. :R2
  163. WAIT Action!
  164. TYPE Dow/Proto:XModem^M
  165. WAIT XMODEM transfer
  166. XMODEM Download,R3
  167. MAILFILE Subj:,Attn:,From:,[,]
  168. WAIT Action!
  169. TYPE Delete^M
  170. WAIT Delete
  171. GOTO R1
  172. :R3
  173. TYPE NOCOMMAND^M
  174. WAIT Action!
  175. TYPE Save^M
  176. WAIT Save
  177. GOTO R1
  178. :R10
  179. FAILURE
  180.